home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSPRIORY.PRG < prev    next >
Encoding:
Text File  |  1986-07-16  |  3.5 KB  |  119 lines
  1. * PSPRIORY.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE to allow selection of the options of
  4. * the priority management portion of the system
  5. *
  6. * Version 1
  7. * By LTC Denny Hugg
  8. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  9. *
  10. * Version 2
  11. * modified by Maj Jim McMurry
  12. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  13. DO WHILE T
  14. RELEASE ALL EXCEPT g*
  15.    ERASE
  16.    STORE 'p S S S t   P R I O R I T Y   M A N A G E M E N T' TO heading
  17.    DO PSHEADING
  18.    STORE chr(95)+chr(95) TO ln
  19.    STORE ln+ln+ln+ln+ln TO ln
  20.    STORE ln+ln+ln+ln+ln+ln+ln+ln TO ln
  21.    STORE 'PRIORITY' TO p1
  22.    STORE 'NON-PRIORITY' TO p2
  23.    STORE 'VIEW' TO p3
  24.    STORE 'PRINT' TO p4
  25.    STORE 'RETURN' TO p5
  26.    STORE ' '+p1+'  '+p2+'  '+p3+'  '+p4+'  '+p5+'  ' TO lin
  27.    STORE '          (Management By Ordering)' TO y1
  28.    STORE '    (Items Moved To Priority List)' TO y2
  29.    STORE '        (Priority Items On Screen)' TO y3
  30.    STORE '       (Priority Items On Printer)' TO y4
  31.    STORE '              (To pSSSt Main Menu)' TO y5
  32.    STORE '0010243037' TO col
  33.    STORE 1 TO c
  34.    STORE '1' TO z
  35.    STORE '0' TO mcho
  36.    STORE t TO screen
  37.    @ 22,0 SAY gline
  38.    DO WHILE screen
  39.       @ 22,79 SAY lin + y&z
  40.       @ 23,VAL($(col,c,2)) GET p&z
  41.       CLEAR GETS
  42.       SET CONSOLE OFF
  43.       STORE '0' TO mcho
  44.       DO WHILE ' '<>mcho .AND. .NOT. mcho$'DCKM46'
  45.          WAIT TO mcho
  46.       ENDDO
  47.       SET CONSOLE ON
  48.       DO CASE
  49.          CASE mcho$('CM6')
  50.             IF c#9
  51.                STORE c+2 TO c
  52.                STORE str(val(z)+1,1) TO z
  53.             ELSE
  54.                STORE 1 TO c
  55.                STORE '1' TO z
  56.             ENDIF
  57.          CASE mcho$('KD4')
  58.             IF c>1
  59.                STORE c-2 TO c
  60.                STORE str(val(z)-1,1) TO z
  61.             ELSE
  62.                STORE 9 TO c
  63.                STORE '5' TO z
  64.             ENDIF
  65.          CASE mcho = ' '
  66.             STORE f TO screen
  67.             LOOP
  68.       ENDCASE
  69.    ENDDO
  70.    @ 22, 0 SAY gclearline
  71.    @ 22,79 SAY gclearline
  72.    DO CASE
  73.       CASE c=1
  74.          RELEASE ALL EXCEPT g*
  75.          DO PSREORDR
  76.       CASE c=3
  77.          RELEASE ALL EXCEPT g*
  78.          DO PSNONPRI
  79.       CASE c=5
  80.          RELEASE ALL EXCEPT g*
  81.          DO PSVIEWPR
  82.       CASE c=7
  83.          USE &gsusfile INDEX &gpryindex
  84.          STORE 'P' TO moutput
  85.          STORE "@ mline,17 SAY 'P R I O R I T Y   S U S P E N S E   ';
  86.                +'I T E M S'" TO header
  87.          STORE 'PRINT PRIORITY ITEMS' TO prompt
  88.          STORE "@ mline, 0 SAY 'PRTY'" TO item1
  89.          STORE "@ mline, 6 SAY 'OPR'" TO item2
  90.          STORE "@ mline,12 SAY 'ITEM DESCRIPTION'" TO item3
  91.          STORE "@ mline,72 SAY 'DUE DATE'" TO item4
  92.          STORE "@ mline, 0 SAY priority" TO data1
  93.          STORE "@ mline, 6 SAY opr" TO data2
  94.          STORE "@ mline,12 SAY descrip" TO data3
  95.          STORE "@ mline,72 SAY duedate" TO data4
  96.          STORE "@ 10,28 SAY 'No Priority Items Stored'";
  97.                TO nonethere
  98.          STORE ' ' TO condition
  99.          DO PSPRINTR
  100.          USE
  101.       CASE c=9
  102.          RELEASE ALL EXCEPT g*
  103.          RETURN
  104.       ENDCASE
  105.    STORE f TO screen
  106. ENDDO
  107. *EOF PSPRIORY.PRG item4
  108.          STORE "@ mline, 0 SAY priority" TO data1
  109.          STORE "@ mline, 6 SAY opr" TO data2
  110.          STORE "@ mline,12 SAY descrip" TO data3
  111.          STORE "@ mline,72 SAY duedate" TO data4
  112.          STORE "@ 10,28 SAY 'No Priority Items Stored'";
  113.                TO nonethere
  114.          STORE ' ' TO condition
  115.          DO PSPRINTR
  116.          USE
  117.       CASE c=9
  118.          RELEASE ALL EXCEPT g*
  119.          RETURN